# DESC: Remove all scripts from file/input

#!/usr/bin/perl -w
use strict;

my $input = join '', <>;

$input =~ s/<script.*?<\/script>//gs;

print $input;
